home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-04
/
blanker.zip
/
README.BLK
< prev
Wrap
Text File
|
1990-02-04
|
1KB
|
51 lines
(*====================================================================
= Peter M. Perchansky =
= 412-1 Springside, Drive East =
= Shillington, PA 19607 =
====================================================================*)
BLANK.EXE is an EGA/VGA safe screen blanking program written using
TopSpeed Modula-2 (version 1.17).
USAGE:
Blank Screen: BLANK
Normal: <press any key>
Relevant code from PMPDos.MOD:
----------------------------------------------------------------------
VAR
r : SYSTEM.Registers;
PROCEDURE ScreenOff ();
(* turns off the screen *)
BEGIN
WITH r DO
AL := SYSTEM.In (03DAH);
DX := 03C0H;
SYSTEM.Out (DX, AL);
END;
END ScreenOff;
PROCEDURE ScreenOn ();
(* turns on the screen *)
BEGIN
WITH r DO
AL := SYSTEM.In (03DAH);
DX := 03C0H;
AL := 20H;
SYSTEM.Out (DX, AL);
END;
END ScreenOn;
PROCEDURE ReadKey (): CHAR;
(* waits for and returns keyboard character. *)
BEGIN
r.AH := 00H;
Lib.Intr (r, 16H); (* keyboard *)
RETURN (CHR (r.AL));
END ReadKey;